From 69e8d552cf8c68baf3e4c1fd685b0cb1b15ea844 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 12 Nov 2010 08:28:17 -0500 Subject: [PATCH] * lisp/international/mule-cmds.el (princ-list): Use mapc. --- lisp/ChangeLog | 4 ++++ lisp/international/mule-cmds.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 412d8a5baaf..dd783f2231c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-11-12 Kevin Ryde + + * international/mule-cmds.el (princ-list): Use mapc. + 2010-11-12 Glenn Morris * emacs-lisp/bytecomp.el (byte-compile-log-buffer): New constant. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 2b193fbe42a..4701e7e5718 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2035,7 +2035,7 @@ See `set-language-info-alist' for use in programs." (defun princ-list (&rest args) "Print all arguments with `princ', then print \"\\n\"." - (while args (princ (car args)) (setq args (cdr args))) + (mapc #'princ args) (princ "\n")) (make-obsolete 'princ-list "use mapc and princ instead" "23.3") -- 2.30.2